!===============================================================
!
! FUNZIONE QUARTIC (n=2)
!
!===============================================================
!			VARIABLE BOUNDS
!===============================================================
!       -1.D+1               1.D+1         Limits of variable 1
!       -1.D+1               1.D+1            "        "      2

SUBROUTINE QUARTIC(X,N,F)

      IMPLICIT NONE

      INTEGER          :: N
      DOUBLE PRECISION :: X(N), F

      F = (1.D0/4.D0)*X(1)**4-(1.D0/2.D0)*X(1)**2+&
	       .1D0*X(1)+(1.D0/2.D0)*X(2)**2
       	
!	  F = F + 0.352386d0

	  RETURN

     

END
